home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / crtex / ex11.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  363 b   |  21 lines
  1. Program Example10;
  2. uses Crt;
  3.  
  4. { Program to demonstrate the InsLine function. }
  5.  
  6. begin
  7.   ClrScr;
  8.   WriteLn;
  9.   WriteLn('Line 1');
  10.   WriteLn('Line 2');
  11.   WriteLn('Line 2');
  12.   WriteLn('Line 3');
  13.   WriteLn;
  14.   WriteLn('Oops, Line 2 is listed twice,',
  15.           ' let''s delete the line at the cursor postion');
  16.   GotoXY(1,3);
  17.   ReadKey;
  18.   DelLine;
  19.   GotoXY(1,10);
  20. end.
  21.